Untitled

library(igraph)

## Warning: package 'igraph' was built under R version 3.4.1

## 
## Attaching package: 'igraph'

## The following objects are masked from 'package:stats':
## 
##     decompose, spectrum

## The following object is masked from 'package:base':
## 
##     union

library(dplyr)

## Warning: package 'dplyr' was built under R version 3.4.2

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:igraph':
## 
##     as_data_frame, groups, union

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

coffeeG05 = read_graph("Data/iGraphs/coffeeG05.gml", format = "gml")

tri = triangles(coffeeG05)
tri_df = matrix(names(tri), byrow = TRUE)
dim(tri_df) = c(3,nrow(tri_df)/3)
tri_df = data.frame(t(tri_df))
colnames(tri_df) = c("a","b","c")

DF = tri_df %>% filter(a == "Ethiopia:ETH" | b == "Ethiopia:ETH" | c == "Ethiopia:ETH")

for(i in 1:nrow(DF)){
        plot(induced_subgraph(coffeeG05, vids = as.character(unlist(DF[i,]))))
}